home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO023.dsk
/
Q2.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
8KB
|
321 lines
0 HOME
100 HGR : HCOLOR= 3
110 HPLOT 120,65 TO 50,100 TO 50,40 TO 120,5 TO 190,40 TO 190,100 TO 120,65
112 HPLOT 121,66 TO 49,101 TO 49,39 TO 120,4 TO 191,39 TO 191,101 TO 121,66
120 HPLOT 120,6 TO 120,65
121 HPLOT 121,6 TO 121,65
140 REM draw ap
145 X% = 111:Y% = 59
150 GOSUB 9800
160 REM write ang
162 X% = 158:Y% = 17
164 GOSUB 10900
166 X% = 165
168 GOSUB 10450
170 X% = 171
172 GOSUB 10250
174 X% = 177
176 GOSUB 10400
178 X% = 180
180 GOSUB 10150
200 REM =
202 X% = 190
204 GOSUB 11400
206 REM 90
208 X% = 200
210 GOSUB 11250
212 X% = 206
214 GOSUB 11300
216 X% = 212
218 GOSUB 11450
300 REM answers
302 REM a. eight
304 X% = 5:Y% = 130
306 GOSUB 10000
308 HPLOT 11,130
310 X% = 17
312 GOSUB 10150
314 X% = 23
316 GOSUB 10350
318 X% = 26
320 GOSUB 10250
322 X% = 32
324 GOSUB 10300
326 X% = 38
328 GOSUB 10650
342 REM b. thirteen 20
344 X% = 58
346 GOSUB 11200
348 HPLOT 64,130
350 X% = 70
352 GOSUB 10650
354 X% = 75
356 GOSUB 10300
358 X% = 81
360 GOSUB 10350
362 X% = 84
364 GOSUB 10600
366 X% = 90
368 GOSUB 10650
370 X% = 95
372 GOSUB 10150
374 X% = 101
376 GOSUB 10150
378 X% = 107
380 GOSUB 10450
382 REM c. eleven
384 X% = 127
386 GOSUB 10050
388 HPLOT 133,130
390 X% = 139
392 GOSUB 10150
394 X% = 145
396 GOSUB 10400
398 X% = 148
400 GOSUB 10150
402 X% = 154
404 GOSUB 10750
406 X% = 160
408 GOSUB 10150
410 X% = 166
412 GOSUB 10450
420 REM d. help
422 X% = 186
424 GOSUB 10100
426 HPLOT 192,130
428 X% = 198
430 GOSUB 10300
432 X% = 204
434 GOSUB 10150
436 X% = 210
438 GOSUB 10400
440 X% = 213
442 GOSUB 10550
500 REM ?
501 PRINT : PRINT
502 VTAB (21): PRINT "Given the angle between these two mirrors, how many images will you see?"
504 GET KY$: CALL 62450
506 IF KY$ = "c" OR KY$ = "C" THEN GOSUB 2000
508 IF KY$ = "a" OR KY$ = "A" OR KY$ = "b" OR KY$ = "B" THEN GOSUB 2100
510 IF KY$ = "d" OR KY$ = "D" THEN GOSUB 2200
512 PRINT
514 PRINT "Please enter <a>, <b>, <c>, or <d> only."
516 FOR I = 0 TO 1000
518 J = 1
520 NEXT I
522 GOTO 0
1000 END
2000 HOME : TEXT
2002 PRINT : PRINT
2004 PRINT "GREAT!! You've got it. Let's move on."
2006 PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
2008 GOSUB 3008
2010 PRINT CHR$(4);"run q3"
2100 REM wrong answer
2102 HOME : TEXT
2104 PRINT
2106 PRINT "Sorry, WRONG choice. Please wait a moment to try again....."
2108 PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
2110 GOSUB 3008
2112 GOSUB 0
2200 HOME : TEXT
2202 PRINT : PRINT
2204 PRINT "In order to get the number of images, divide 360 by the angle and subtract one from the result.
2206 PRINT : PRINT
2207 PRINT " 360 "
2208 PRINT " ------- - 1 = number of images"
2209 PRINT " angle "
2210 PRINT : PRINT : PRINT : PRINT : PRINT
2220 GOSUB 3008
2230 PRINT "Press any key to try again."
2240 GET KY$
2250 GOTO 0
3008 FOR I = 0 TO 1100
3010 J = 1
3012 NEXT I
3014 RETURN
9800 REM draw ap
9802 HPLOT X% +3,Y% TO X% +4,Y%
9804 HPLOT X% +3,Y% +1 TO X% +5,Y% +1
9806 HPLOT X% +10,Y% +1 TO X% +11,Y% +1
9808 HPLOT X% +3,Y% +2 TO X% +6,Y% +2
9810 HPLOT X% +10,Y% +2 TO X% +11,Y% +2
9812 HPLOT X% +4,Y% +3 TO X% +7,Y% +3
9814 HPLOT X% +9,Y% +3 TO X% +10,Y% +3
9816 HPLOT X% +4,Y% +4 TO X% +10,Y% +4
9818 HPLOT X% +1,Y% +5 TO X% +16,Y% +5
9820 HPLOT X%,Y% +6 TO X% +17,Y% +6
9822 HPLOT X%,Y% +7 TO X% +17,Y% +7
9824 HPLOT X%,Y% +8 TO X% +17,Y% +8
9826 HPLOT X%,Y% +9 TO X% +17,Y% +9
9828 HPLOT X% +1,Y% +10 TO X% +16,Y% +10
9830 HPLOT X% +1,Y% +11 TO X% +16,Y% +11
9832 HPLOT X% +1,Y% +12 TO X% +16,Y% +12
9834 HPLOT X% +2,Y% +13 TO X% +15,Y% +13
9836 HPLOT X% +2,Y% +14 TO X% +15,Y% +14
9838 HPLOT X% +3,Y% +15 TO X% +14,Y% +15
9840 HPLOT X% +4,Y% +16 TO X% +13,Y% +16
9842 HPLOT X% +5,Y% +17 TO X% +7,Y% +17
9844 HPLOT X% +10,Y% +17 TO X% +12,Y% +17
9850 RETURN
9999 REM a
10000 HPLOT X%,Y% -1
10010 HPLOT X% +1,Y% TO X% +2,Y%
10020 HPLOT X% +1,Y% -2 TO X% +2,Y% -2
10030 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10040 HPLOT X% +3,Y% TO X% +3,Y% -3
10041 RETURN
10049 REM c
10050 HPLOT X%,Y% -1 TO X%,Y% -3
10060 HPLOT X% +1,Y% TO X% +3,Y%
10070 HPLOT X% +1,Y% -4 TO X% +3,Y% -4
10071 RETURN
10099 REM d
10100 HPLOT X%,Y% -1 TO X%,Y% -3
10110 HPLOT X% +1,Y% TO X% +2,Y%
10120 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10130 HPLOT X% +3,Y% TO X% +3,Y% -6
10131 RETURN
10149 REM e
10150 HPLOT X%,Y% -1 TO X%,Y% -3
10160 HPLOT X% +1,Y% TO X% +3,Y%
10170 HPLOT X% +1,Y% -2 TO X% +2,Y% -2
10180 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10190 HPLOT X% +3,Y% -3
10191 RETURN
10199 REM f
10200 HPLOT X%,Y% -3 TO X% +2,Y% -3
10210 HPLOT X% +1,Y% TO X% +1,Y% -5
10220 HPLOT X% +2,Y% -6 TO X% +3,Y% -6
10221 RETURN
10249 REM g
10250 HPLOT X%,Y% -1 TO X%,Y% -3
10260 HPLOT X% +1,Y% TO X% +2,Y%
10270 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10280 HPLOT X% +3,Y% +2 TO X% +3,Y% -3
10290 HPLOT X% +1,Y% +3 TO X% +2,Y% +3
10291 RETURN
10299 REM h
10300 HPLOT X%,Y% TO X%,Y% -6
10310 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10320 HPLOT X% +3,Y% TO X% +3,Y% -3
10321 RETURN
10349 REM i
10350 HPLOT X%,Y% TO X%,Y% -3
10360 HPLOT X%,Y% -5
10361 RETURN
10399 REM l
10400 HPLOT X%,Y% TO X%,Y% -6
10401 RETURN
10449 REM n
10450 HPLOT X%,Y% TO X%,Y% -4
10460 HPLOT X% +1,Y% -3
10470 HPLOT X% +2,Y% -4
10480 HPLOT X% +3,Y% TO X% +3,Y% -3
10481 RETURN
10499 REM o
10500 HPLOT X%,Y% -1 TO X%,Y% -3
10510 HPLOT X% +1,Y% TO X% +2,Y%
10520 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10530 HPLOT X% +3,Y% -1 TO X% +3,Y% -3
10531 RETURN
10549 REM p
10550 HPLOT X%,Y% +3 TO X%,Y% -4
10560 HPLOT X% +1,Y% TO X% +2,Y%
10570 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10580 HPLOT X% +3,Y% -1 TO X% +3,Y% -3
10581 RETURN
10599 REM r
10600 HPLOT X%,Y% TO X%,Y% -4
10610 HPLOT X% +1,Y% -3
10620 HPLOT X% +2,Y% -4 TO X% +3,Y% -4
10621 RETURN
10649 REM t
10650 HPLOT X%,Y% -4
10660 HPLOT X% +1,Y% TO X% +1,Y% -6
10670 HPLOT X% +2,Y% -4
10671 RETURN
10699 REM u
10700 HPLOT X%,Y% -1 TO X%,Y% -4
10710 HPLOT X% +1,Y%
10720 HPLOT X% +2,Y% -1
10730 HPLOT X% +3,Y% TO X% +3,Y% -4
10731 RETURN
10750 HPLOT X%,Y% -2 TO X%,Y% -4
10760 HPLOT X% +1,Y% -1
10770 HPLOT X% +2,Y%
10780 HPLOT X% +3,Y% -1
10790 HPLOT X% +4,Y% -2 TO X% +4,Y% -4
10791 RETURN
10899 REM A
10900 HPLOT X%,Y% TO X%,Y% -4
10910 HPLOT X% +1,Y% -5 TO X% +2,Y% -6
10920 HPLOT X% +3,Y% -5
10930 HPLOT X% +1,Y% -2 TO X% +3,Y% -2
10940 HPLOT X% +4,Y% TO X% +4,Y% -4
10941 RETURN
10949 REM I
10950 HPLOT X% +1,Y% TO X% +3,Y%
10960 HPLOT X% +2,Y% -1 TO X% +2,Y% -5
10970 HPLOT X% +1,Y% -6 TO X% +3,Y% -6
10971 RETURN
10999 REM L
11000 HPLOT X%,Y% TO X%,Y% -6
11010 HPLOT X% +1,Y% TO X% +4,Y%
11011 RETURN
11049 REM M
11050 HPLOT X%,Y% TO X%,Y% -6
11060 HPLOT X% +1,Y% -5
11070 HPLOT X% +2,Y% -3 TO X% +2,Y% -5
11080 HPLOT X% +3,Y% -5
11090 HPLOT X% +4,Y% TO X% +4,Y% -6
11091 RETURN
11099 REM R
11100 HPLOT X%,Y% TO X%,Y% -6
11110 HPLOT X% +1,Y% -3 TO X% +3,Y% -3
11120 HPLOT X% +1,Y% -6 TO X% +3,Y% -6
11130 HPLOT X% +4,Y% -4 TO X% +4,Y% -5
11140 HPLOT X% +4,Y% TO X% +2,Y% -2
11141 RETURN
11149 REM C
11150 HPLOT X%,Y% -1 TO X%,Y% -5
11160 HPLOT X% +1,Y% TO X% +3,Y%
11170 HPLOT X% +1,Y% -6 TO X% +3,Y% -6
11180 HPLOT X% +4,Y% -5
11190 HPLOT X% +4,Y% -1
11191 RETURN
11199 REM b
11200 HPLOT X%,Y% TO X%,Y% -6
11210 HPLOT X% +1,Y% TO X% +2,Y%
11230 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
11240 HPLOT X% +3,Y% -1 TO X% +3,Y% -3
11241 RETURN
11249 REM 3
11250 HPLOT X%,Y% TO X% +2,Y%
11260 HPLOT X%,Y% -6 TO X% +2,Y% -6
11270 HPLOT X% +1,Y% -3 TO X% +2,Y% -3
11280 HPLOT X% +3,Y% -1 TO X% +3,Y% -2
11290 HPLOT X% +3,Y% -4 TO X% +3,Y% -5
11291 RETURN
11299 REM 0
11300 HPLOT X% +1,Y% TO X% +2,Y%
11310 HPLOT X%,Y% -1 TO X%,Y% -5
11320 HPLOT X% +1,Y% -6 TO X% +2,Y% -6
11330 HPLOT X% +3,Y% -1 TO X% +3,Y% -5
11331 RETURN
11349 REM 9
11350 HPLOT X%,Y% -4 TO X%,Y% -5
11360 HPLOT X% +1,Y% -3 TO X% +2,Y% -3
11370 HPLOT X% +1,Y% -6 TO X% +2,Y% -6
11380 HPLOT X% +3,Y% TO X% +3,Y% -5
11381 RETURN
11399 REM =
11400 HPLOT X%,Y% -1 TO X% +3,Y% -1
11410 HPLOT X%,Y% -3 TO X% +3,Y% -3
11411 RETURN
11449 REM degree sign
11450 HPLOT X%,Y% -5
11460 HPLOT X% +1,Y% -4
11470 HPLOT X% +1,Y% -6
11480 HPLOT X% +2,Y% -5
11481 RETURN